home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byt86feb.arc / ANALYZER.ONE next >
Text File  |  1985-10-02  |  1KB  |  44 lines
  1.  
  2. 10  REM   FREQUENCY ANALYZER 1
  3. 20  REM 
  4. 30  REM   BY JIM TANKARD
  5. 40  REM   3003 CHERRY LANE
  6. 50  REM   AUSTIN, TEXAS 78703
  7. 60  REM 
  8. 70  DIM A%(26),B%(26): REM  THESE ARRAYS HOLD THE TWO FREQUENCY COUNTS TO BE COMPARED
  9. 80  LET SI% = 0
  10. 90 D$ =  CHR$ (4)
  11. 100  REM  GETS NAMES OF FILES
  12. 110  INPUT "WHAT FILE CONTAINS THE FIRST FREQUENCY  COUNT?";N$
  13. 120  INPUT "WHAT FILE CONTAINS THE SECOND FREQUENCY COUNT?";M$
  14. 130  REM  OPENS FIRST FILE AND READS ITS FREQUENCIES INTO A%(I)
  15. 140  PRINT D$;"OPEN ";N$
  16. 150  PRINT D$;"READ ";N$
  17. 160  FOR I = 1 TO 26
  18. 170  INPUT C$: LET C% =  VAL (C$)
  19. 180  LET A%(I) = C%
  20. 190  NEXT I
  21. 200  PRINT D$;"CLOSE ";N$
  22. 210  HOME 
  23. 220  REM  OPENS SECOND FILE AND READS ITS FREQUENCIES INTO B%(I)
  24. 230  PRINT D$;"OPEN ";M$
  25. 240  PRINT D$;"READ ";M$
  26. 250  FOR I = 1 TO 26
  27. 260  INPUT C$: LET C% =  VAL (C$)
  28. 270  LET B%(I) = C%
  29. 280  NEXT I
  30. 290  PRINT D$;"CLOSE ";M$
  31. 300  REM  COMPUTES DIFFERENCE INDEX
  32. 310  FOR I = 1 TO 26
  33. 320  LET SI% = SI% +  ABS (A%(I) - B%(I))
  34. 330  NEXT I
  35. 340  REM  PRINTS RESULTS
  36. 350  HOME 
  37. 360  PRINT "FIRST SAMPLE:  ";N$
  38. 370  PRINT 
  39. 380  PRINT "SECOND SAMPLE: ";M$
  40. 390  PRINT 
  41. 400  PRINT "DIFFERENCE INDEX: ";SI%
  42. 410  END 
  43.  
  44.